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14-Sep-1984 11:55: BASRTL.SRC JBASNUM.B32; 


' Routines to do gAsic NUM$ fyact ton 


! module BASNUM.B352 Edit: PLL10 


MODULE BASSNUM ( 
IDENT = '1-008' 
)= 


i eeeeneeerereereeereenereeeeneerterreeeereeeeeereeeeeeenereeerenerenereeeeener 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED D. 


® 
® 
* 
® 
, & 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
ie COPIES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
*® 
js THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. * 
® 
* 
® 
® 
® 
® 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRE RARER ARERR RARE E EERE EEE AEREREERARR EERE 
‘ 


'e¢ 
' FACILITY: BASIC Support Library 
i ABSTRACT: 


This module has entry points for long, floating, double, 

9 stenting eh floating and pectes decimal. 

he double routine checks for a BASIC frame and picks 

up the scale factor. Then all routines convert a number 

to a numeric string as it would be formatted by the BASIC print 
statement by a CALL to the BAS$ conversion routine. 


i] 
1 
1 
1 
! 
' 
1 
1 
ft 
t 
' 
: ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 2-Mar-79 
: MODIFIED BY: 
R. will, Brn om VERSION 01 
‘ 
‘ 
t 
! 
! 


! 1-002 - Change. Seoten Linkages to start with STR$. JBS aei-tr9 
1 SLNK to get scaling Linkages. RW 26-JUN-79 
- change to use new conversion routines. RW 6-JUL-79 
: - Add longword entry point. RW 10-Sept- 
! I- - String cleanup, don't use SSTR$ macros. R2 30-OCT-79 
! - Add entry points for G & H floating. PLL 3-Sep-81 
- Add entry point for stehen decimal. PLL 19-Jan-82 
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BASNUM.B32; 


13 
16-Sep-1984 00:51: AX=11 Bliss-32 v4.0-74 p 
e-8ep-1984 11:35:28 EBASRTLeSRETBASNUM.B3271 wee 


EXTERNAL REFERENCES: 


H 0060 1! 

; B88) : SWITCHES: 

H Goes 1 

: 494 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
: 0066 1! 

; 0067 1 ! LINKAGES: NONE 

; 0068 1! 

H 0069 1 

; 0070 1! 

; 0071 1 ! TABLE OF CONTENTS: 

; Borg 1! 

: 0073 1 

; 0074 1 FORWARD ROUTINE 

; 0075 1 BASSNUM_L : NOVALUE, ! Find NUM$ of a Longword value 

3 0076 1 BASSNUM_F : NOVALUE, ! Find NUM$ of a floating value 

; 0077 1 BASSNUM_D : NOVALUE, ! Find NUM$ of a double value 

3 0078 #1 BASSNUM_G : NOVALUE, ! Find NUM$ of a g floating value 
; 0079 1 BASSNUM_H : NOVALUE, ! Find NUM$ of an h floating value 
$ ie : BASSNUM_P : NOVALUE; ! Find NUM$ of a decimal value 

; 0082 1! 

; 0083 1 ! INCLUDE FILES: 

; 0084 1! 

; 0085 1 

; 0086 1 REQUIRE ‘RTLIN:RTLPSECT'; ' Declare PSECTs code 

3 0181 1 REQUIRE ‘'RTLIN:BASLNK'; ! Linkage for BASIC scaling routines 
3 peat ; REQUIRE *RTLIN:BASFRAME'; ! Define offsets in a BASIC frame 
; 462 1! 

; 0463 1 ! MACROS: NONE 

: 0464 1! 

; 0465 1 

3 0466 1! 

: 96 0467 1 ! EQUATED SYMBOLS: 

; 0468 1! 

; 0469 1 

; 0470 1 LITERAL hee 

; 100 0471 1 digits_in_long = 10, ' # of significant digits to return 
3: 101 0472 1 no_flags = 0; ! no flags to conversion rtn 

; 10¢ 0473 1 

; W 0474 1! 

3 104 475 1 ! PSECT DECLARATIONS 

: 105 476 1! 

; 106 0477 1 

s 07 0478 1 DECLARE_PSECTS (BAS); 

: 108 0479 1 

; 109 0480 1! 

3; 11 geet 1 ! OWN STORAGE: NONE 

; 11 7 ; 1! 

s 49 4 1 

s; 1! 

i. 1 

oe 1 

; $$ 1 

: 11 1 


0 
1 
3 
4 
5 
6 
7 


EXTERNAL ROUTINE 
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1ergebi18Bs 99:2h:98 = FANSAT Ocha Renin S356 Page (4$ 


1 
188 1 BASSCVT_OUT_D_G, ! Convert dbl to BASIC string format 
4 1 BASSCVT_OUT_G_G, i Convert gfloat to BASIC string iernet 
491 1 BASSCVT_OUT_H_G, ' Convert hfloat to BASIC string format 
be88 : BASSCVT_OUT_P_G; ! Convert packed to BASIC string format 
0494 1 BUILTIN 
0495 1 CVTLD; ! convert long to double for cvt routine 
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GLOBAL ROUTINE BASSNUM_L ( ! convert a longword to string 
STRING, ! Address of destination descriptor 
nh a Create string with this value 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine takes a longword integer and formats it as the BASIC PRINT 
statement would and gives that value to the destination string. 


i FORMAL PARAMETERS: 


STRING. wt.dx pointer to input string descriptor 
VALUE. rl.v value of a longword integer 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 


i SIDE EFFECTS: 


Calls the conversion routine so may signal any of its errors or have 
any of its side effects. In particular, the conversion routine calls 
some of the STR$ routines and so may allocate or deallocate space, 


and may keep some of the strings from being written for some period. 


BEGIN 


Pp 
STRING : REF BLOCK (8,BYTE); 


OCAL 
STR_LENGTH : WORD, 
TEMP : VECTOR C2, LONG); 


CVTLD (VALUE, TEMP (0): 
BAS$SCVT_OUT_0_G (TEMP (63, 


cvt returns str length 
need double for conversion 


convert to double 
convert this value to string 


' 
i 
no vlogs ' no flags needed 
STR_LE ety i return bytes needed for str 
STRING (0,0,0,0), } return s ring 
' no scale 
digits_in_long); i digits to return 


RETURN; 
END; ‘End of BASSNUM_L 


-TITLE 
«IDENT 
-EXTRN 
«EXTRN 
«EXTRN 
«EXTRN 
-PSECT 
0000 00000 -ENTRY 
5E oc C2 BR O8E SUBL2 
04 AE 08 AC 6€ 0000 CVTLD 
QA DD QOO0A PUSHL 
7E D4 0000C CLRL 
04 AC DD QOOODE USHL 
OC AE 9F 00011 PUSHAB 
7E D4 00014 LRL 
18 AE 9F 00016 PUSHAB 
000000006 00 06 FB 00019 CALLS 
04 00020 ET 
; Routine Size: 33 bytes, Routine Base: _BASSCODE + 0000 


1984 00:51: AX-11 Blise-32 v4.0-742 
; 198¢ 0:31:03 1 


BASRTL.SRCJBASNUM.B32; 


BAS$NUM 
1=008\ 
BASSCVT_OUT_D_G 
BASSCVT_OUT_G_G 
BASSCVT_OUT_H_G 
BASSCVT_OUT_P_G 


BASSNUM_L. Save nothing 
VALUE, TEMP 

#10 

-(SP) 

STRING 

STR_LENGTH 

-(SP) 


TEMP 
#6, BAS$CVT_OUT_D_G 


Page 
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| BASSNUM 1§- -Sep-19 : 0:51: AX-11 Bliss-32 V4.0-74 Page 
1-008 14- = 3ep-1984 0:33:03 BASRTL.SRCJBASNUM.B32; . (4 
GLOBAL ROUTINE BASSNUM_F ( ! convert Hhoating to string 
os RING, ! Address of destination dexcrioter 
! Create string with this value 


ALUE; 
NOVALUE = 
144 


FUNCTIONAL DESCRIPTION: 


This routine takes a floating number and formats it as the BASIC PRINT 
statement would and gives that value to the destination string. 


i FORMAL PARAMETERS: 


STRING. wt.dx pointer to input string descriptor 
VALUE.rf.v value of a floating number 


i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 


' 
' 
' 
1 
' 
4 
' 
' 
i] 
' 
1 
{ 
1 
' 
; NONE 
i 
‘ 
1 
] 
' 
' 
i 
' 
3 
' 
i] 
4 
' 


DVD IVSV SV SVSV SUSU TSI 
SSIS NNSA AAA AAAAAOMMIMNIINII 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 

This routine calls the conversion routine and so hare signal any of its 
errors or have any of its side effects. In particular, the conversion 


routine calls STR$ routines and therefore may allocate or deallocate 
string space or lock a string from being written for some period. 


BEGIN 


Pp 
STRING : REF BLOCK (8,BYTE]; 


LOCAL 
STR LENGT H_ : WORD, 
TEMP : VECTOR C2, LONG); 


cvt returns str length | 
need double for conversion 


CONAUSWN —OOONAUSWN—OOONG NEW" ODOONAY SW "OVDONOULW 


Walvalvalvab ab eabval ab vab al al ab ab ab ab ab abvabeal areal a! 
S 00000 00000000009 00 09 09 0000 Co SI I~ 


WWII IRI RINININININININID 2 3 2 2 SO S| “DOO COCOCOCOCOCOCOOOOOOOOOOWMMcmoc 
be oe me ee ew nm nw wl o lo lola lololololololololololololololololololololo ola) 


TREPOPOPOPOPINOPONPININDNDNONINDNIPYNININIPINONIPINYIPYNYPINIPININPONYNINININPYAININYDY 2 SS es 
Ronononononononononononononononononond 3 3 a es 


Be Se Se Se Se Se Ge Se Se Fe Se Se Fe Se Ge Be Se Be Ge Se Ge ee Se Se Se Fe Be Se Se Ge Ge Ge Ss Oe Ge Ge Fe Se Os Se Oe Oe Oe Se Se OF os Oe HSE HSE Ss Oe oe es es 


0599 
6 i a 0) = »WALUE ; 
0601 TEMP (1 
060 BASSCVT “our “b. . (TEMP (0), ! convert this value to string 
060 o fla ags ' no flags needed 
0604 STR LENGTH ! return bytes needed for str 
0605 STRING CO, "6, 0,03); i return string 
3 0606 ! no scale 
3 0607 : default # of digits 
3 0608 
o 0609 RETURN; 


: 


D 14 

BASSNUM 16-Sep-1984 00:51: AX=11 Bliss-32 v4.0=742 

1-008 1e-Sep-1984 11:35:23 EBASRTL SRESBASNUM: B37 
8 


> 241 0610 1 END; 'End of BASSNUM_F 


0000 0000 ENTRY BASSNUM_F, Save nothing 
SE 0c C2 00 0 SUBL2 #12, 
06 AE 08 AC D 0 MOVL VALUE, TEMP 
08 AE D4 OOOOA CLRL =r TEMP +4 
04 AC DD 00000 PUSHL STRING 
04 AE OF 901 PUSHAB STR_LENGTH 
7E 04 0001 CLRL = = (SP) 
10 AE 9F 0001 PUSHAB TEMP 
000000006 00 04 FB 00018 CALLS #4, BAS$SCVT_OUT_D_G 
04 0001F RET 


; Routine Size: 32 bytes, Routine Base: _BASSCODE + 0021 


BA SNUM 

-008 
HY 
> 245 $18 1 
3 rf 614 1 
3 24 Bel? 1 
3 48 O18 1 
: 249 93 1 
; 250 618 1 
3 24 ge)% : 
; 38 8 1 
3 @o9 be g 1 
$ 56 0624 1 
3; 257 0625 1 
; 258 06 $ 1 
; 259 06 1 
; 260 0628 1 
: 261 0629 1 
; $66 0630 1 
Be BEY 
3; 265 0638 1 
: 266 0634 1 
; 267 0635 (1 
3 son B638 1 
3; 269 0637 1 
: 270 0638 #1 
: 71 0639 1 
s 2f 0640 1 
i $i bee? 
s e3 pong 1 
3 $78 0644 1 
: e277 0645 1 
s 278 0646 1 
s ey 0647 1 
; 280 0648 1 
: 281 0649 1 
3 see 0650 1 
;s 2 0651 1 
: 284 3036 1 
; 285 9037 1 
eB Be 
3; 289 5689 

: $89 0688 
> 29 0 

$ 95 § 

: 2% 

: 97 5 

; 298 066 

; 299 066 


14 
1$-Sep-19 4 00:51: AX-11 Bliss-32 V4.0-74 Page 9 
14-Sep-1984 99:33:98 BASRTL. RC IBASNUM.B32; . (5) 
GLOBAL ROUTINE BASSNUM_D ( ! convert double to $e 
STRING, ! Address of destination descriptor 
VALUE1 ! Ist longword of double value to put in 
VALUE ¢S : i 2nd longwrd of double value for string 
= 


> 


FUNCTIONAL DESCRIPTION: 
This routine takes a double number and formats it as the BASIC PRINT 
statement would and gives that value to the destination ete ing, 
Note that this routine violates the calling standard because it 
accepts and passes double floating numbers by value. 
FORMAL PARAMETERS: 
STRING. wt.dx pointer to input string descriptor 
VALUE .rd.v value of a double number 
(VALUE1 and VALUE2 used to pick up the 2 longwords of double value) 
IMPLICIT INPUTS: 
Scale factor from BASIC frame 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


This routine calls the conversion routine and so may signal any of 
its errors or have any of its side effects. In particular, the 
conversion routine calls the STR$ routines and so may allocate or 
deallocate dynamic string space, and may lock a string against 
writing for a period of time. 


BEGIN 


MAP 
STRING : REF BLOCK (8,BYTE); 


LOCAL 
STR_LENGTH : WORD; 


BASSCVT_OUT_D_G (VALUE1, 


conversion rtn returns len 


convert this value to string 


1 
no tees ' no flags needed 
STR_LE ety ' return bytes needed for str 
STRING (0,0,0,0), ! return string 
SBASSSCALE): scale factor 


default # of digits 


; 300 0668 
; 301 B66? RETURN; 
; 302 0670 END; 


5E 
2 
0 oC 
000000006 
04 
08 
08 


000000006 00 


io 
= 
oO 


> 

m 
onmWworoor7o-9°9 
Fore nOOoeoonr 


; Routine Size: 39 bytes, Routine Base: _BASSCODE + 0041 


93 vest Bliss-32 V4.0-742 


BASRTL.SRC JBASNUM.B32; 1 


BASSSSCALE_L_R1 
BASSNUM_D, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
R10,R11 


FP. FMP 

12(FMP), RO 
BASSSSCALE_L_R1 
STRING 
STR_LENGTH 
=(SB) 


VALUE? 
#5, BASSCVT_OUT_D_G 


0611 


uw 


WAWMWAWAUI NAIR POPOPIPONPUPENINODD 2 2 OO OS 


uw 


WA A.A AAAI 
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a ee a ed od ed od od dd 
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GLOBAL ROUTINE BASSNUM_G ( 
VALUE2S : 
NOVALUE = 


‘ee 


FUNCTIONAL DESCRIPTION: 


14 
w$ep-1986 11:35:03 EBASRTL’SReSBASMUM-BS2; 


convert g floating to string 
Address of destination descriptor 
Ist longword of g floating 

2nd longword of g floating 


This routine takes a q floating number and formats it as the BASIC PRINT 
Vv 


statement would and g 
FORMAL PARAMETERS: 
STRING. wt.dx 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


es that vaiue to the destination string. 


pointer to input string descriptor 
VALUE .rg.v value of a 
(VALUE1 and VALUE2 used to pick up 


3 floating number E 
he 2 longwords of g floating) 


This routine calls the conversion routine and so oy signal any of its 
a 


errors or have any of its side effects. In particu 


r, the conversion 


routine calls STRS routines and therefore may allocate or deallocate 
string space or lock a string from being written for some period. 


; 
i 
i 
; 
i 
; 
i 
: 
i 
; 
i 
: 
i 
. 
i 
. 
i 
4 
i 
. 
i 
: 
i 
4 
i 
: 
i 
. 
i 
. 
; NONE 
i 
. 
i 
. 
i 
; 
i 
. 
i 
. 
i 
4 
i 
: 
i 
; 
i 
. 
i 
: 
i 
i 
. 
i 
: 
i 
. 


BEGIN 


MAP 
STRING : REF BLOCK (8,B8YTE); 


LOCAL 
STR_LENGTH : WORD; 


BASSCVT_OUT_G_G (VALUE1, 
no tt ogs 
STR_LE ety 
STRING (0,6,0,0)); 


RE TURN; 
END; 


cvt returns str length 


convert this value to string 
no flags needed 

return bytes needed for str 
return string 


no scale - 
default # of digits 


‘End of BASSNUM_G 


i608" IESeoc18BE QH:$3:0} WALSH OLsetadeaghr sds 


000 sENTRY BASSNUM_G, Save nothing 
5E 04 C SUBL2 

4 Ac bo PUSHL STRING 
4 AE F 08 PUSHAB STR_LENGTH 

7E 0008 CLAL me 

000000006 00 04 FB 000 CALLS #4, BASSCVT_OUT_G_G 
04 000 RET 
; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0068 


D4 
08 AC OF 9000p PUSHAB 
17 
| 


| BASSNUM 18-Sep-19 4 00:51:03 YAX-I1 8 


i tegaze Ae et oe 
| 1-008 -“Sep-19 BASRTL.SRC JBASNUM.B32; 
; 7 8 1 GLOBAL ROUTINE BASSNUM_H ( ! convert h floating ‘ string 
3 7 1 STRING, ! Address of destination descriptor 
; 730 «(1 VALUE], ! Ist longword of h floating 
13 731 «1 VALUE@, : ene Longword of h floating 
; 7 § 1 VALUE ! 3rd longword of h floating 
; 7333 VALUE4S : i th longword of h floating 
; f : ! NOVALUE = 
: 7 6 1 te 
; ie : FUNCTIONAL DESCRIPTION: 
: ree 1 i This routine takes an h floating number and formats it as the BASIC PRINT 
; me : statement would and gives that value to the destination string. 
; Ore | | FORMAL PARAMETERS: 
: bpee 1! STRING. wt.dx pointer to input string descriptor 
3 EOF , VALUE .rh.v value of an h floating number 
3 b7e9 : (Four longwords needed to pass an h floating number) 
; 0748 1! IMPLICIT INPUTS: 
; 0749 1! 
; 0750 1! NONE 
3 oP 2) ;! 
: P3¢ 1 ! IMPLICIT OUTPUTS: 
; 07535 1! 
: 28 lee 
; 0756 1 i ROUTINE VALUE: 
3 fete : : COMPLETION CODES: 
7 op 
; o761 | i SIDE EFFECTS: 
F 7? Ore 7} This routine calls the conversion routine and oS ey signal any of its 
; 398 764 1! errors or have any of its side effects. In particular, the conversion 
; 0765 1! routine calls STR$ routines and therefore may allocate or deallocate 
; 400 0766 1! string space or lock a string from being written for some period. 
3; 401 0767 1! 
; 40 0768 1 !-- 
; 40 0769 1 
: 404 0770 BEGIN 
Ewe 
; 407 6978 STRING : REF BLOCK (8,BYTE); 
: 209 a LOCAL 
; rh 0776 STR_LENGTH : WORD; ! cvt returns str Length 
: $1¢ O778 BASSCVT_OUT_H_G (VALUE1, ' convert this value to string 
3 (41 077 no ‘ons ' no flags needed 
; 414 780 STR_LENGTH ! return bytes needed for str 
3; 415 781 STRING (0,6,0,0)); ' return string 
; oe 7 ¢ ! no scale . 
3 eit y ! default # of digits 


2 RETURN; 
1 END; 


5E 
04 
04 
08 
000000006 00 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0080 


3 AX-11 Bliss-32 V4.0-742 
:23 BASRTL.SRCJBASNUM.B32;1 


‘End of BASSNUM_H 


0 00000 -ENTRY SASOAR_M. Save nothing 


STRING 
PUSHAB STR_LENGTH 
C =(SP) 


B 
D VALUE1 
9 CALLS #4, BASSCVT_OUT_H_G 


Page 
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| 
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BASSNUM 16-Sep-1984 00:51: AX-11 Bliss-32 V4.0-74 
‘ad 1easep-1984 99:23:98 UBASRTL SRE BASNUM.B32; 
3 («4 ¢ ore? 1 GLOBAL ROUTINE BASSNUM_P ( ! convert packed decimal to string 

3; «4 878 1 STRING, ! Address of destination descriptor 

; 424 789 #1 VALUE) : ! Create string with this value 

> 425 0790 1 NOVALUE = 

; 4 $ 8593 1 

3; 4 136 1 !44 

; : 3 145, : FUNCTIONAL DESCRIPTION: 

; 430 0795 1! This routine takes a decimal number and formats it as the BASIC PRINT 

; : 1 Brae : statement would and gives that value to the destination string. 

3; 4 § Bre 1 ! FORMAL PARAMETERS: 

> 434 yy 1 

3 455 0800 1! STRING. wt.dx pointer to input string descriptor 

: 4 0801 1! VALUE .rp.dsd desc of packed decimal number 

; 437 pe0s 7% 

; 438 0805 1 ! IMPLICIT INPUTS: 

> 439 0804 1! 

; 440 0805 1! NONE 

> 441 0806 1! 

; 44 0807 1 ! IMPLICIT OUTPUTS: 

> 44 0808 1! 

3; 466 0809 1! NONE 

; 445 0810 1! 

; 446 gett 1 ! ROUTINE VALUE: 

: 447 812 1 ! COMPLETION CODES: 

; 448 0813 1! 

3 449 0814 1! NONE 

> 450 0815 1! 

3 451 0816 1 ! SIDE EFFECTS: 

; $26 0817 1! 

3 45 0818 1! This routine calls the conversion routine and so may signal any of its 

3: 4546 0819 1! errors or have any of its side effects. In particular, the conversion 

: 455 0820 1! routine calls STRS routines and therefore may allocate or deallocate 

; 456 0821 1! string space or lock a string from being written for some period. 

3; 457 0822 1! 

; 458 0823 1 !-- 

3; 459 bese 1 

; ro 6 b852 BEGIN 

3 re 4 0837 MAP 

; 46 0828 STRING : REF BLOCK (8,BYTE), 

3 Pre: sth VALUE : REF BLOCK (12,BYTE); 

; 466 O83 OCAL 

3 re 4 oa8s STR_LENGTH : WORD; ' cvt returns str Length 

3; 469 0834 BASSCVT_OUT_P_G (. VALUE, ' convert this value to string 

; 470 0835 no flags ' no flags neede 

3 «471 O836 STR_LE oth ' return bytes needed for str 

; 47 oes STRING £0,6,0,0)); ' return string 

3; 47 838 ! no scale ae 

3 $n ste4 ! default # of digits 

3; 47 0841 RETURN; 

3 «(67 0842 END; 'End of BASSNUM_P 


BASSHUN ifo3e ig 00:51:05 YANcIt BL isgs32 4.0574 


on 0000 ENTRY BASSNUM_P, Save nothing 
5E : 04 C2 0000 SUBL2 #4, SP 
06 AC OD 990 PUSHL STRING 

04 AE 9F 00008 PUSHAB STR_LENGTH 

7E 04 00008 CLRL = = (SP) 

08 AC DD 9000p PUSHL VALUE 

000000006 00 04 FB 0001 CALLS #4, BASSCVT_OUT_P_G 
04 00017 RET 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0098 


Be Se Se Be Se Ge Be Se 


—— CT 


IRReocH9HE QN:G1:99 WARE OUde kh 0584 


479 43 1 END ‘End of module 
480 Rete 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 176 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASNUM/OBJ=0BJ$:BASNUM MSRC$:BASNUM/UPDATE=(ENH$ :BASNUM) 
Size: 176 code + 0 data bytes 
; Run Time: :06.6 
; Elapsed Time: OD: idee 
Lines/CPU Min: 7696 
: Seog ot Rani 20954 
nenory Used: 38 pages 
ompilation Complete 
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